home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / rexx / xdmd1.lha / Mode.xdme < prev    next >
Text File  |  1994-10-29  |  426b  |  17 lines
  1. /* mode.xdme */
  2. /* Selects the appropriate mode according to the file name */
  3.  
  4. arg name
  5.  
  6. dot = lastpos(".", name)
  7. if dot ~= 0 then ext = substr(name, dot)
  8.  
  9. select
  10.     when index(name,":S/") > 0 | left(name,2) = "S:" then "prog-mode"
  11.     when dot = 0 | ext = ".TXT" | ext = ".DOC" | ext = ".GUIDE" | ext = ".README" | ext = "DOK" then "text-mode"
  12.     when ext = ".C" | ext = ".CC" then "c-mode"
  13.     otherwise "prog-mode"
  14. end
  15.  
  16.  
  17.